home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / misc / ISEP.lha / ISEP / UnInstall-ISEP < prev   
Encoding:
Text File  |  1999-08-18  |  6.8 KB  |  163 lines
  1. (if (= @language "deutsch")(
  2.  
  3. (set #WARNUNG       "\n\nHinweis:\n\nAm Ende des Skriptes muß noch die Hauptschublade gelöscht werden.")
  4. (set #UNQUESTDIR1   "In welchem Verzeichnis ist \"")
  5. (set #UNQUESTDIR2   "\" installiert ?")
  6. (set #DELFILES      "\nLösche Dateien...")
  7. (set #UNQUESTASSIGN "Sollen die Assigns in der \"User-Startup\" entfernt werden?")
  8. (set #DELPROG       "; Das Programm ist leider gelöscht worden !")
  9. (set #ABORTINSTALL  "Installation abbrechen")
  10. (set #JUMPOP        "Operation überspringen")
  11. (set #ASKMIDDIR     "das Verzeichnis")
  12. (set #ASKMIDFILE    "die Datei")
  13. (set #ASKFIRST      "Soll")
  14. (set #ASKLAST       "gelöscht werden?")
  15.  
  16. ;END IF
  17. ))
  18. (if (= @language "english")(
  19.  
  20. (set #WARNUNG       "\n\nInfo:\n\nAt the end of the script, the main-directory must be deleted by hand !")
  21. (set #UNQUESTDIR1   "In which drawer is \"")
  22. (set #UNQUESTDIR2   "\" installed ?")
  23. (set #DELFILES      "\nDelete Files...")
  24. (set #UNQUESTASSIGN "Should the Assigns be delete?")
  25. (set #DELPROG       "; Sorry for the bad english (The programm is deld!)")
  26. (set #ABORTINSTALL  "Abort Install")
  27. (set #JUMPOP        "Jump operation")
  28. (set #ASKMIDDIR     "the directory")
  29. (set #ASKMIDFILE    "the file")
  30. (set #ASKFIRST      "Should")
  31. (set #ASKLAST       "be deleted?")
  32.  
  33. ;END IF
  34. ))
  35. (procedure p_delete #dir #pat #inf
  36.   (
  37.     (set #fehler
  38.       (trap
  39.         (
  40.           (foreach #dir #pat
  41.             (
  42.               (if (> @each-type 0)
  43.                 (set #type #ASKMIDDIR)
  44.                 (set #type #ASKMIDFILE)
  45.               )
  46.               (if (= @user-level 2)
  47.               (
  48.                 (set #answer
  49.                   (askbool
  50.                     (prompt (cat "\n" #ASKFIRST " " #type "\n\"" #dir @each-name "\"\n" #ASKLAST))
  51.                     (help @askbool-help)
  52.                   )
  53.                 )
  54.               )
  55.               (
  56.                 (set #answer 1)
  57.               ))
  58.               (if #answer
  59.                 (
  60.                   (delete (cat #dir @each-name))
  61.                   (if (= #inf 1)
  62.                     (delete (cat #dir @each-name ".info"))
  63.                   )
  64.                 )
  65.               )
  66.             )
  67.           )
  68.         )
  69.       )
  70.     )
  71.     (if (= #fehler 1)
  72.       (exit #USER_ABORT (quiet))
  73.     )
  74.   )
  75. )
  76.  
  77. (message #WARNUNG)
  78.  
  79. (set my_dest
  80.   (askdir
  81.     (prompt (cat #UNQUESTDIR1 "ISEP" #UNQUESTDIR2))
  82.     (help @askdir-help)
  83.     (default @default-dest)
  84.   )
  85. )
  86. (set @default-dest my_dest)
  87.  
  88. (if (< @user-level 2)
  89.   (working #DELFILES))
  90.  
  91. (p_delete (tackon my_dest "") "ISEP.info" 0)
  92. (p_delete (tackon my_dest "ISEP/") "ISEPPrefs" 0)
  93. (p_delete (tackon my_dest "ISEP/") "ISEPPrefs.info" 0)
  94. (p_delete (tackon my_dest "ISEP/") "EasyISEP.info" 0)
  95. (p_delete (tackon my_dest "ISEP/") "ISEP" 0)
  96. (p_delete (tackon my_dest "ISEP/") "ISEP.info" 0)
  97. (p_delete (tackon my_dest "ISEP/") "Anleitung.htm" 0)
  98. (p_delete (tackon my_dest "ISEP/") "Anleitung.htm.info" 0)
  99. (p_delete (tackon my_dest "ISEP/") "EasyISEP" 0)
  100. (p_delete (tackon my_dest "ISEP/html-docs/") "anleitung.htm" 0)
  101. (p_delete (tackon my_dest "ISEP/html-docs/") "archive.htm" 0)
  102. (p_delete (tackon my_dest "ISEP/html-docs/") "assign.htm" 0)
  103. (p_delete (tackon my_dest "ISEP/html-docs/") "aunterverz.htm" 0)
  104. (p_delete (tackon my_dest "ISEP/html-docs/") "autor.htm" 0)
  105. (p_delete (tackon my_dest "ISEP/html-docs/") "benutzungei.htm" 0)
  106. (p_delete (tackon my_dest "ISEP/html-docs/") "copyrights.htm" 0)
  107. (p_delete (tackon my_dest "ISEP/html-docs/") "datei_fenster.htm" 0)
  108. (p_delete (tackon my_dest "ISEP/html-docs/") "easyisep.htm" 0)
  109. (p_delete (tackon my_dest "ISEP/html-docs/") "einschr.htm" 0)
  110. (p_delete (tackon my_dest "ISEP/html-docs/") "faq.htm" 0)
  111. (p_delete (tackon my_dest "ISEP/html-docs/") "hauptfenster.htm" 0)
  112. (p_delete (tackon my_dest "ISEP/html-docs/") "intro.htm" 0)
  113. (p_delete (tackon my_dest "ISEP/html-docs/") "iprefs.htm" 0)
  114. (p_delete (tackon my_dest "ISEP/html-docs/") "iunterverz.htm" 0)
  115. (p_delete (tackon my_dest "ISEP/html-docs/") "nachricht.htm" 0)
  116. (p_delete (tackon my_dest "ISEP/html-docs/") "nachrichten.htm" 0)
  117. (p_delete (tackon my_dest "ISEP/html-docs/") "prozent.htm" 0)
  118. (p_delete (tackon my_dest "ISEP/html-docs/") "quelldisk_fenster.htm" 0)
  119. (p_delete (tackon my_dest "ISEP/html-docs/") "register.htm" 0)
  120. (p_delete (tackon my_dest "ISEP/html-docs/") "spfenster.htm" 0)
  121. (p_delete (tackon my_dest "ISEP/html-docs/") "startfenster.htm" 0)
  122. (p_delete (tackon my_dest "ISEP/html-docs/") "steuercodes.htm" 0)
  123. (p_delete (tackon my_dest "ISEP/html-docs/") "vorbereitung.htm" 0)
  124. (p_delete (tackon my_dest "ISEP/html-docs/") "index.htm" 0)
  125. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "easyisep.gif" 0)
  126. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "background.gif" 0)
  127. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "assign_2.gif" 0)
  128. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "assign_1.gif" 0)
  129. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "spfenster.gif" 0)
  130. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "prozent.gif" 0)
  131. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "nachricht_2.gif" 0)
  132. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "nachricht_1.gif" 0)
  133. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "bunterverz.gif" 0)
  134. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "unterverz_3.gif" 0)
  135. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "unterverz_2.gif" 0)
  136. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "unterverz_1.gif" 0)
  137. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "datei_fenster.gif" 0)
  138. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "quelldisk.gif" 0)
  139. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "hauptfenster.gif" 0)
  140. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "startfenster.gif" 0)
  141. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "isepprefs.gif" 0)
  142. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "next.gif" 0)
  143. (p_delete (tackon my_dest "ISEP/html-docs/gif/") "back.gif" 0)
  144. (p_delete (tackon my_dest "ISEP/html-docs/") "gif" 0)
  145. (p_delete (tackon my_dest "ISEP/") "html-docs" 0)
  146. (p_delete (tackon my_dest "ISEP/data/") "def_install.info" 0)
  147. (p_delete (tackon my_dest "ISEP/data/") "LiesMich" 0)
  148. (p_delete (tackon my_dest "ISEP/") "data" 0)
  149. (p_delete (tackon my_dest "ISEP/sprachen/") "index.dat" 0)
  150. (p_delete (tackon my_dest "ISEP/sprachen/") "english.dat" 0)
  151. (p_delete (tackon my_dest "ISEP/sprachen/") "deutsch.dat" 0)
  152. (p_delete (tackon my_dest "ISEP/") "sprachen" 0)
  153. (p_delete (tackon my_dest "ISEP/dev/own_catalogs/") "LiesMich" 0)
  154. (p_delete (tackon my_dest "ISEP/dev/own_catalogs/") "NewCatalog.lib" 0)
  155. (p_delete (tackon my_dest "ISEP/dev/own_catalogs/") "NewCatalog.h" 0)
  156. (p_delete (tackon my_dest "ISEP/dev/own_catalogs/") "NewCatalog.c" 0)
  157. (p_delete (tackon my_dest "ISEP/dev/") "own_catalogs" 0)
  158. (p_delete (tackon my_dest "ISEP/dev/catalogs/") "ISEP.ct" 0)
  159. (p_delete (tackon my_dest "ISEP/dev/catalogs/") "ISEP.cd" 0)
  160. (p_delete (tackon my_dest "ISEP/dev/") "catalogs" 0)
  161. (p_delete (tackon my_dest "ISEP/") "dev" 0)
  162. (p_delete (tackon my_dest "") "ISEP" 0)
  163.